From cc644a05e46084d21daa87ec45514cc46e941936 Mon Sep 17 00:00:00 2001 From: Simon Josefsson Date: Sun, 29 Sep 2002 03:19:35 +0000 Subject: [PATCH] (smtpmail-via-smtp): Only negotiate starttls on streams that were opened using starttls. --- lisp/mail/smtpmail.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/mail/smtpmail.el b/lisp/mail/smtpmail.el index 78393348c5d..82fbfdad5ed 100644 --- a/lisp/mail/smtpmail.el +++ b/lisp/mail/smtpmail.el @@ -613,7 +613,7 @@ This is relative to `smtpmail-queue-dir'.") (if (and do-starttls (smtpmail-find-credentials smtpmail-starttls-credentials host port) (member 'starttls supported-extensions) - (process-id process)) + (numberp (process-id process))) (progn (smtpmail-send-command process (format "STARTTLS")) (if (or (null (car (setq response-code (smtpmail-read-response process)))) -- 2.30.2